home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TK-PAGER.ZIP / PAGER.PPS < prev    next >
Encoding:
Text File  |  1996-10-08  |  1.8 KB  |  45 lines
  1. ;----------------------------------------------------------------------------;
  2. ; ami/x pager v1.o by the black assassin                          o8/1o/96   ;
  3. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                         ~~~~~~~~   ;
  4. ; Thought i would also put in the sorce so u can edit this, change it, color ;
  5. ; it, cut it up or whatever just dont be lame and rip it and if u do then    ;
  6. ; just give credit where credit is due ok.. l8a dudes.. the black assassin   ;
  7. ;----------------------------------------------------------------------------;
  8.   String S
  9.   Byte A
  10.   cls
  11.   println "           @X01---|---------------------------------------------|---"
  12.   println "              |         @X03Paging Sysop please wait.           @X01|"
  13.   println "              | @X06Page Reason@X05: @X08[@X07............................@X08] @X01|"
  14.   println "           ---|---------------------------------------------|---"
  15.   println "              |  @X02Progress                                   @X01|"
  16.   println "           ---|---------------------------------------------|---"
  17.   ansipos 31,3
  18.   inputstr "_", S, 7, 28, mask_ascii(), 0
  19.   if (len(S) = 0) then
  20.     cls
  21.     end
  22.   endif
  23.   if (upper(readline(ppepath() + "PAGER.CFG", 2)) = "Y") then
  24.     FAppend 1, PpePath() + "PAGER.LOG", 1, 3
  25.     FPutln 1, U_Name() + space(30-Len(U_Name())) + String(Date()) + " " + String(Time()) + " "+S
  26.     FClose 1
  27.   endif
  28.   pageon
  29.   ansipos 26, 5
  30.   color 2
  31.   for A = 1 to 30
  32.     print "."
  33.     if (A < readline(ppepath() + "PAGER.CFG", 1)+1) sound 400
  34.     if (A = readline(ppepath() + "PAGER.CFG", 1)+1) sound 0
  35.     delay 50
  36.     if (minkey() <> "") break
  37.     if (kinkey() <> "") then
  38.       sound 0
  39.       call readline(ppepath() + "PAGER.CFG", 3)
  40.       end
  41.     endif
  42.   next
  43.  
  44. ;----------------------------------------------------------------------------;
  45.